home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 January / 1989-01.d64 / disc blitz (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  134 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 ad=49152:ifpeek(ad+5)=94then120
  3. 30 poke53280,0:poke53281,0
  4. 40 print"[147]please wait (1 minute)..."
  5. 50 forq=0to31:reada:next:forx=1to30:readq$
  6. 60 fort=1tolen(q$)-4step2:a$=mid$(q$,t,1)
  7. 70 gosub110:w=v*16:a$=mid$(q$,t+1,1):gosub110:w=w+v:pokead,w:ad=ad+1:ch=ch+w
  8. 80 w=0:next
  9. 90 ifch<>val(right$(q$,4))thenprint"error in line"peek(63)+peek(64)*256:end
  10. 100 ch=0:w=0:nextx:goto120
  11. 110 v=asc(a$)-48+7*(a$>"9"):return
  12. 120 a2=50090:poke50015,0:goto220
  13. 130 s=54272:forx=54272to54296:pokex,0:nextx:pokes+24,15
  14. 140 pokes+4,0:pokes+5,0:pokes+6,240:pokes+4,17
  15. 150 restore:forx=0to15
  16. 160 reada,b:geta$:j=peek(56320):ifa$<>""orj=111thenpokes+4,0:goto550
  17. 170 pokes+1,a:pokes,b:fory=1to100:nexty,x:goto150
  18. 180 data 11,48,14,24,18,209,11,48
  19. 190 data 10,143,14,24,18,209,10,143
  20. 200 data 9,104,14,24,18,209,14,24
  21. 210 data 9,104,14,24,18,209,14,24
  22. 220 print"[144][147]"chr$(8)
  23. 230 level=1
  24. 240 poke49557,6:rem speed
  25. 250 sys49152
  26. 260 add=49853
  27. 270 poke53280,0:poke53281,0
  28. 280 ship=3
  29. 290 a=peek(53248+30)
  30. 300 v=53248
  31. 310 forx=12288+26*8+2to12288+26*8+7:pokex,252:nextx:poke12288+26*8,0
  32. 320 poke12288+26*8+1,0
  33. 330 pokev+39,7
  34. 340 pokev+21,0
  35. 350 rout=1
  36. 360 printspc(9)"[151]       [152] [151]   [152] [151]   "spc(19);
  37. 370 print"          [152]  ";
  38. 380 printspc(14)"[151]  [152] [151] [152] [151]   [152] [151] [152] "spc(21);
  39. 390 print"[151]  [155] [152] [151] [152] [155]  [152] [155] "spc(21)"[151] [152] [155] [152] ";
  40. 400 print"[155]    [152] [155]   [152] ";
  41. 410 printspc(18)"[155]   [152] [155]   [152] [155]   [152] [155]  [152] "
  42. 420 printspc(7)"[151]                     ";
  43. 430 printspc(8)"   [152] [151]      ";
  44. 440 printspc(7)" [152]  [151]   [152]  [151] [152] ";
  45. 450 print"[151] [152] [151] [152] [151] [152]  ";
  46. 460 printspc(8)"[151] [152]         ";
  47. 470 print"   "spc(9)"  [155] [152] ";
  48. 480 print"[155]   [152] [155] [152] [152]  [155] ";
  49. 490 printspc(10)"     [152] [155]    [152] [155] [152] ";
  50. 500 print"[155] [152] [155]      [152] "
  51. 510 printspc(12)"[146][158][145][145][145]copyright1989"
  52. 520 printspc(7)"compute!publications,inc."
  53. 530 printspc(10)"allrightsreserved"
  54. 540 goto130
  55. 550 print"[154][147][157][157][157][157][157][157][157][157]";
  56. 560 print"[155][207][183][183][183][183][183][208][157][157][157][157][157][157][157]";
  57. 570 fory=1to21
  58. 580 print"[155][180][160][160][160][160][160][170][157][157][157][157][157][157][157]";:nexty
  59. 590 print"[145][204][175][175][175][175][175][186]"
  60. 600 print"[157][157][157][157][157][157][157][152]score"
  61. 610 print"[157][157][157][157][157][157][157]00000"
  62. 620 print"[157][157][157][157][157][157][157]ships"
  63. 630 print"[157][157][157]3"
  64. 640 print"[157][157][157][157][157][157][157]level"
  65. 650 print"[157][157][157]1"
  66. 660 poke50015,1
  67. 670 on routine gosub920,940,960,980
  68. 680 on level gosub730,740,750,760,770
  69. 690 pokev+21,253:sys49423
  70. 700 ifpeek(2)=1then780
  71. 710 ifpeek(2)=2then1000
  72. 720 end
  73. 730 forx=addtoadd+11:pokex,1:next:return:rem level1
  74. 740 forx=addtoadd+11step2:pokex,1:pokex+1,0:next:return:rem level2
  75. 750 forx=addtoadd+11step2:pokex,0:pokex+1,1:next:return:rem level3
  76. 760 forx=addtoadd+11:pokex,0:next:return:rem level4
  77. 770 forx=addtoadd+11:pokex,rnd(0)*2:next:return:rem level5
  78. 780 rem ship control
  79. 790 pokev+21,1:pokes+4,0
  80. 800 forx=1to50:poke832+rnd(0)*64,0:nextx
  81. 810 ship=ship-1
  82. 820 ifship=-1then890
  83. 830 print"[157][157][157][157][157][157][157][152]"ship:poke1024+36+40*9,96
  84. 840 pokev,0:pokev+1,100
  85. 850 sysa2
  86. 860 forx=0to26:pokev,x:fory1=1to50:nexty1,x
  87. 870 goto670
  88. 880 print"[157][157][157][157][157][157][157][152]press[157][157][157]any[157][157][157]key"
  89. 890 pokev+21,0:print"[157][157][157][157][157][157][157]press[157][157][157][157]any[157][157][157]key"
  90. 900 getdh$:ifdh$=""thengoto890
  91. 910 goto120
  92. 920 rem routine1
  93. 930 a=70:forx=v+4tov+14step+2:pokex,a:pokex+1,a:a=a+30:nextx:return
  94. 940 rem routine2
  95. 950 a=70:forx=v+4tov+14step2:pokex,240:pokex+1,a:a=a+30:next:return
  96. 960 rem routine3
  97. 970 a=70:forx=v+4tov+14step2:pokex,100:pokex+1,a:a=a+30:next:return
  98. 980 rem routine4
  99. 990 a=70:forx=v+4tov+14step2:pokex,a:pokex+1,200:a=a+30:next:return
  100. 1000 rem set up new balls
  101. 1010 rout=rout+1:ifroutine>4thenroutine=1:level=level+1:iflevel>5thenlevel=5
  102. 1020 print"[157][157][157][157][157][157][157][152]"level:poke1024+36+40*13,96
  103. 1030 goto670
  104. 1040 dataa201a9008d5ec38d5dc38e0ec38e0fc3ad0edc29fe8d0edca50129fb8501a0003723
  105. 1050 data84fb84fda9d085fca93085feb1fb91fde6fbe6fdd0f6e6fce6fea5fec938d0ec6464
  106. 1060 dataa50109048501ad0edc09018d0edca91d8d18d0a0ff8c0031888c01318c0631a92970
  107. 1070 datafa8d02318d03318d0431a9c28d0531a9008d0731a9ff8d1cd04cfdc0300000003123
  108. 1080 data00000000000000000000003f00003affc0eabfc0ffec00eaab003aaef0eabfac3150
  109. 1090 dataffffffeabfac3aaef0eaab00ffec00eabfc03affc03f0000000000000000003c3975
  110. 1100 data0003d7c00d55700d557035555c35555cd55557d55557d55557d55557d55557d53428
  111. 1110 data5557d55557d55557d5555735555c35555c0d55700d557003d7c0003c00a90f8d3002
  112. 1120 data05d478a9c98d1403a9c28d15035860ad1ed0a0ff8c18d48c15d0c8b97fc099404075
  113. 1130 data03a900998003a9008d20d08d21d0b9bec099c003c8c040d0e2a01a8c00d0a0643987
  114. 1140 data8c01d0a20d8ef807e88ef907e88aa00699f90788d0faa9aa8d8c038d8f038db04317
  115. 1150 data038db303ad1ed0adfe02c900f00160ad00dc2902d003ee01d0ad00dc2901d0033444
  116. 1160 datace01d0ad01d0c932d003ee01d0c9e5d003ce01d0a20a20b3eecad0faad1ed08d4595
  117. 1170 data07c32901f005a901850260ad15d029fcd005a902850260ad00dc2910d018ad153076
  118. 1180 datad009028d15d0ad02d0d00ba92e8d02d0ad01d08d03d0ad02d0f027ee02d0ee023841
  119. 1190 datad0ee02d0ee28d0ad02d08d01d4a9008d00d48d05d4a9f08d06d4a9818d04d44c4258
  120. 1200 data12c2ad15d029fd8d15d0a9008d04d48d02d0a200bdbdc2d006de04d04c22c2fe4095
  121. 1210 data04d0bdbec2d006de05d04c30c2fe05d0bd04d0c9ffd003debdc2c919d003febd4772
  122. 1220 datac2bd05d0c9e5d003debec2c932d003febec2e8e8e00cd0bcad07c32902f05bad4961
  123. 1230 data15d08dffcfa9048dfecfa9030dfecf8d15d0adfecf2dffcff015aec002e8e88e4999
  124. 1240 data00ceadc002cd00ced0f8ad1ed0d00cadfecf0a8dfecfd0d24cb4c220e9c2a9004813
  125. 1250 data8d02d0ad15d029fd8d15d0adfecf4dffcf8dffcfadffcf8d15d04c67c10101014573
  126. 1260 data0101010101010101012060c32010c3a2001e00319008bd003109019d0031e8e01878
  127. 1270 data07d0eeeec0024c31eaa00018a207fee604bde604c93ad009a9309de604ca4cee4108
  128. 1280 datac2c8c00ad0e56030010f0c0b0c0f0101ae0fc3e88e0fc3e005d008a2008e0fc33172
  129. 1290 data4c26c34c3cc3ae0ec3e88e0ec3e006d005a2008e0ec3bd08c38d25d0600547073519
  130. 1300 datae90bda0c8f08610c8f0c8f086109680e180c8f096808610c8f0c8f08610000002076
  131. 1310 dataad5fc3f044ee5ec3ad5ec3c919d03aa9008d5ec3a9008d0bd4a9008d0dd4a9094097
  132. 1320 data8d0cd4ee5dc3ee5dc3ad5dc3c920d005a9008d5dc3ae5dc3bd3dc3bc3ec38d084423
  133. 1330 datad48c07d4a9218d0bd460a000b97fc0994003c8c03fd0f560ff3376
  134.